Inventory-Item-Equipped names an undocumented function, with lambda list (OBJECT).
(SETF Inventory-Item-Equipped) names an undocumented function, with lambda list (NEW-VALUE OBJECT).